<?php

/**
 *  global.func.php 公共函数库
 *
 * @copyright			(C) 2005-2010 PHPCMS
 * @license				http://www.phpcms.cn/license/
 * @lastmodify			2010-6-1
 */

/**
 * 返回经addslashes处理过的字符串或数组
 * 
 * @param $string 需要处理的字符串或数组
 * @return mixed
 */
function new_addslashes($string)
{
    if (! is_array($string))
        return addslashes($string);
    foreach ($string as $key => $val)
        $string[$key] = new_addslashes($val);
    return $string;
}

/**
 * 返回经stripslashes处理过的字符串或数组
 * 
 * @param $string 需要处理的字符串或数组
 * @return mixed
 */
function new_stripslashes($string)
{
    if (! is_array($string))
        return stripslashes($string);
    foreach ($string as $key => $val)
        $string[$key] = new_stripslashes($val);
    return $string;
}

/**
 * 返回经addslashe处理过的字符串或数组
 * 
 * @param $obj 需要处理的字符串或数组
 * @return mixed
 */
function new_html_special_chars($string)
{
    $encoding = 'utf-8';
    if (strtolower(CHARSET) == 'gbk')
        $encoding = 'gb2312';
    if (! is_array($string))
        return htmlspecialchars($string, ENT_COMPAT, $encoding);
    foreach ($string as $key => $val)
        $string[$key] = new_html_special_chars($val);
    return $string;
}

/**
 * 安全过滤函数
 *
 * @param
 *            $string
 * @return string
 */
function safe_replace($string)
{
    $string = str_replace('%20', '', $string);
    $string = str_replace('%27', '', $string);
    $string = str_replace('%2527', '', $string);
    $string = str_replace('*', '', $string);
    $string = str_replace('"', '&quot;', $string);
    $string = str_replace("'", '', $string);
    $string = str_replace('"', '', $string);
    $string = str_replace(';', '', $string);
    $string = str_replace('<', '&lt;', $string);
    $string = str_replace('>', '&gt;', $string);
    $string = str_replace("{", '', $string);
    $string = str_replace('}', '', $string);
    $string = str_replace('\\', '', $string);
    return $string;
}

/**
 * 过滤ASCII码从0-28的控制字符
 * 
 * @return String
 */
function trim_unsafe_control_chars($str)
{
    $rule = '/[' . chr(1) . '-' . chr(8) . chr(11) . '-' . chr(12) . chr(14) . '-' . chr(31) . ']*/';
    return str_replace(chr(0), '', preg_replace($rule, '', $str));
}

/**
 * 格式化文本域内容
 *
 * @param $string 文本域内容
 * @return string
 */
function trim_textarea($string)
{
    $string = nl2br(str_replace(' ', '&nbsp;', $string));
    return $string;
}

/**
 * 将文本格式成适合js输出的字符串
 * 
 * @param string $string
 *            需要处理的字符串
 * @param intval $isjs
 *            是否执行字符串格式化，默认为执行
 * @return string 处理后的字符串
 */
function format_js($string, $isjs = 1)
{
    $string = addslashes(str_replace(array(
        "\r",
        "\n"
    ), array(
        '',
        ''
    ), $string));
    return $isjs ? 'document.write("' . $string . '");' : $string;
}

/**
 * 转义 javascript 代码标记
 *
 * @param
 *            $str
 * @return mixed
 */
function trim_script($str)
{
    $str = preg_replace('/\<([\/]?)script([^\>]*?)\>/si', '&lt;\\1script\\2&gt;', $str);
    $str = preg_replace('/\<([\/]?)iframe([^\>]*?)\>/si', '&lt;\\1iframe\\2&gt;', $str);
    $str = preg_replace('/\<([\/]?)frame([^\>]*?)\>/si', '&lt;\\1frame\\2&gt;', $str);
    $str = preg_replace('/]]\>/si', ']] >', $str);
    return $str;
}

/**
 * 获取当前页面完整URL地址
 */
function get_url()
{
    $sys_protocal = isset($_SERVER['SERVER_PORT']) && $_SERVER['SERVER_PORT'] == '443' ? 'https://' : 'http://';
    $php_self = $_SERVER['PHP_SELF'] ? safe_replace($_SERVER['PHP_SELF']) : safe_replace($_SERVER['SCRIPT_NAME']);
    $path_info = isset($_SERVER['PATH_INFO']) ? safe_replace($_SERVER['PATH_INFO']) : '';
    $relate_url = isset($_SERVER['REQUEST_URI']) ? safe_replace($_SERVER['REQUEST_URI']) : $php_self . (isset($_SERVER['QUERY_STRING']) ? '?' . safe_replace($_SERVER['QUERY_STRING']) : $path_info);
    return $sys_protocal . (isset($_SERVER['HTTP_HOST']) ? $_SERVER['HTTP_HOST'] : '') . $relate_url;
}

/**
 * 字符截取 支持UTF8/GBK
 * 
 * @param
 *            $string
 * @param
 *            $length
 * @param
 *            $dot
 */
function str_cut($string, $length, $dot = '...')
{
    $strlen = strlen($string);
    if ($strlen <= $length)
        return $string;
    $string = str_replace(array(
        '&nbsp;',
        '&amp;',
        '&quot;',
        '&#039;',
        '&ldquo;',
        '&rdquo;',
        '&mdash;',
        '&lt;',
        '&gt;',
        '&middot;',
        '&hellip;'
    ), array(
        ' ',
        '&',
        '"',
        "'",
        '“',
        '”',
        '—',
        '<',
        '>',
        '·',
        '…'
    ), $string);
    $strcut = '';
    if (strtolower(CHARSET) == 'utf-8') {
        $n = $tn = $noc = 0;
        while ($n < $strlen) {
            $t = ord($string[$n]);
            if ($t == 9 || $t == 10 || (32 <= $t && $t <= 126)) {
                $tn = 1;
                $n ++;
                $noc ++;
            } elseif (194 <= $t && $t <= 223) {
                $tn = 2;
                $n += 2;
                $noc += 2;
            } elseif (224 <= $t && $t < 239) {
                $tn = 3;
                $n += 3;
                $noc += 2;
            } elseif (240 <= $t && $t <= 247) {
                $tn = 4;
                $n += 4;
                $noc += 2;
            } elseif (248 <= $t && $t <= 251) {
                $tn = 5;
                $n += 5;
                $noc += 2;
            } elseif ($t == 252 || $t == 253) {
                $tn = 6;
                $n += 6;
                $noc += 2;
            } else {
                $n ++;
            }
            if ($noc >= $length)
                break;
        }
        if ($noc > $length)
            $n -= $tn;
        $strcut = substr($string, 0, $n);
    } else {
        $dotlen = strlen($dot);
        $maxi = $length - $dotlen - 1;
        for ($i = 0; $i < $maxi; $i ++) {
            $strcut .= ord($string[$i]) > 127 ? $string[$i] . $string[++ $i] : $string[$i];
        }
    }
    $strcut = str_replace(array(
        '&',
        '"',
        "'",
        '<',
        '>'
    ), array(
        '&amp;',
        '&quot;',
        '&#039;',
        '&lt;',
        '&gt;'
    ), $strcut);
    return $strcut . $dot;
}

/**
 * 获取请求ip
 *
 * @return ip地址
 */
function ip()
{
    if (getenv('HTTP_CLIENT_IP') && strcasecmp(getenv('HTTP_CLIENT_IP'), 'unknown')) {
        $ip = getenv('HTTP_CLIENT_IP');
    } elseif (getenv('HTTP_X_FORWARDED_FOR') && strcasecmp(getenv('HTTP_X_FORWARDED_FOR'), 'unknown')) {
        $ip = getenv('HTTP_X_FORWARDED_FOR');
    } elseif (getenv('REMOTE_ADDR') && strcasecmp(getenv('REMOTE_ADDR'), 'unknown')) {
        $ip = getenv('REMOTE_ADDR');
    } elseif (isset($_SERVER['REMOTE_ADDR']) && $_SERVER['REMOTE_ADDR'] && strcasecmp($_SERVER['REMOTE_ADDR'], 'unknown')) {
        $ip = $_SERVER['REMOTE_ADDR'];
    }
    return preg_match('/[\d\.]{7,15}/', $ip, $matches) ? $matches[0] : '';
}

function get_cost_time()
{
    $microtime = microtime(TRUE);
    return $microtime - SYS_START_TIME;
}

/**
 * 程序执行时间
 *
 * @return int 单位ms
 */
function execute_time()
{
    $stime = explode(' ', SYS_START_TIME);
    $etime = explode(' ', microtime());
    return number_format(($etime[1] + $etime[0] - $stime[1] - $stime[0]), 6);
}

/**
 * 产生随机字符串
 *
 * @param int $length
 *            输出长度
 * @param string $chars
 *            可选的 ，默认为 0123456789
 * @return string 字符串
 *        
 */
function random($length, $chars = '0123456789')
{
    $hash = '';
    $max = strlen($chars) - 1;
    for ($i = 0; $i < $length; $i ++) {
        $hash .= $chars[mt_rand(0, $max)];
    }
    return $hash;
}

/**
 * 将字符串转换为数组
 *
 * @param string $data
 *            字符串
 * @return array 返回数组格式，如果，data为空，则返回空数组
 *        
 */
function string2array($data)
{
    if ($data == '')
        return array();
    eval("\$array = $data;");
    return $array;
}

/**
 * 将数组转换为字符串
 *
 * @param array $data
 *            数组
 * @param bool $isformdata
 *            如果为0，则不使用new_stripslashes处理，可选参数，默认为1
 * @return string 返回字符串，如果，data为空，则返回空
 *        
 */
function array2string($data, $isformdata = 1)
{
    if ($data == '')
        return '';
    if ($isformdata)
        $data = new_stripslashes($data);
    return addslashes(var_export($data, TRUE));
}

/**
 * 转换字节数为其他单位
 *
 *
 * @param string $filesize
 *            字节大小
 * @return string 返回大小
 *        
 */
function sizecount($filesize)
{
    if ($filesize >= 1073741824) {
        $filesize = round($filesize / 1073741824 * 100) / 100 . ' GB';
    } elseif ($filesize >= 1048576) {
        $filesize = round($filesize / 1048576 * 100) / 100 . ' MB';
    } elseif ($filesize >= 1024) {
        $filesize = round($filesize / 1024 * 100) / 100 . ' KB';
    } else {
        $filesize = $filesize . ' Bytes';
    }
    return $filesize;
}

/**
 * 字符串加密、解密函数
 *
 *
 * @param string $txt
 *            字符串
 * @param string $operation
 *            ENCODE为加密，DECODE为解密，可选参数，默认为ENCODE，
 * @param string $key
 *            密钥：数字、字母、下划线
 * @param string $expiry
 *            过期时间
 * @return string
 *
 */
function sys_auth($string, $operation = 'ENCODE', $key = '', $expiry = 0)
{
    $ckey_length = 4;
    $key = md5($key != '' ? $key : pc_base::load_config('system', 'auth_key'));
    $keya = md5(substr($key, 0, 16));
    $keyb = md5(substr($key, 16, 16));
    $keyc = $ckey_length ? ($operation == 'DECODE' ? substr($string, 0, $ckey_length) : substr(md5(microtime()), - $ckey_length)) : '';
    
    $cryptkey = $keya . md5($keya . $keyc);
    $key_length = strlen($cryptkey);
    
    $string = $operation == 'DECODE' ? base64_decode(strtr(substr($string, $ckey_length), '-_', '+/')) : sprintf('%010d', $expiry ? $expiry + time() : 0) . substr(md5($string . $keyb), 0, 16) . $string;
    $string_length = strlen($string);
    
    $result = '';
    $box = range(0, 255);
    
    $rndkey = array();
    for ($i = 0; $i <= 255; $i ++) {
        $rndkey[$i] = ord($cryptkey[$i % $key_length]);
    }
    
    for ($j = $i = 0; $i < 256; $i ++) {
        $j = ($j + $box[$i] + $rndkey[$i]) % 256;
        $tmp = $box[$i];
        $box[$i] = $box[$j];
        $box[$j] = $tmp;
    }
    
    for ($a = $j = $i = 0; $i < $string_length; $i ++) {
        $a = ($a + 1) % 256;
        $j = ($j + $box[$a]) % 256;
        $tmp = $box[$a];
        $box[$a] = $box[$j];
        $box[$j] = $tmp;
        $result .= chr(ord($string[$i]) ^ ($box[($box[$a] + $box[$j]) % 256]));
    }
    
    if ($operation == 'DECODE') {
        if ((substr($result, 0, 10) == 0 || substr($result, 0, 10) - time() > 0) && substr($result, 10, 16) == substr(md5(substr($result, 26) . $keyb), 0, 16)) {
            return substr($result, 26);
        } else {
            return '';
        }
    } else {
        return $keyc . rtrim(strtr(base64_encode($result), '+/', '-_'), '=');
    }
}

/**
 * 语言文件处理
 *
 * @param string $language
 *            标示符
 * @param array $pars
 *            转义的数组,二维数组 ,'key1'=>'value1','key2'=>'value2',
 * @param string $modules
 *            多个模块之间用半角逗号隔开，如：member,guestbook
 * @return string 语言字符
 *        
 */
function L($language = 'no_language', $pars = array(), $modules = '')
{
    static $LANG = array();
    if (! $LANG) {
        $lang = pc_base::load_config('system', 'lang');
        require_once PC_PATH . 'languages' . DIRECTORY_SEPARATOR . $lang . DIRECTORY_SEPARATOR . 'system.lang.php';
        if (defined('IN_ADMIN'))
            require_once PC_PATH . 'languages' . DIRECTORY_SEPARATOR . $lang . DIRECTORY_SEPARATOR . 'system_menu.lang.php';
        if (file_exists(PC_PATH . 'languages' . DIRECTORY_SEPARATOR . $lang . DIRECTORY_SEPARATOR . ROUTE_M . '.lang.php'))
            require PC_PATH . 'languages' . DIRECTORY_SEPARATOR . $lang . DIRECTORY_SEPARATOR . ROUTE_M . '.lang.php';
        if (! empty($modules)) {
            $modules = explode(',', $modules);
            foreach ($modules as $m) {
                require PC_PATH . 'languages' . DIRECTORY_SEPARATOR . $lang . DIRECTORY_SEPARATOR . $m . '.lang.php';
            }
        }
    }
    if (! array_key_exists($language, $LANG)) {
        return $LANG['no_language'] . '[' . $language . ']';
    } else {
        $language = $LANG[$language];
        if ($pars) {
            foreach ($pars as $_k => $_v) {
                $language = str_replace('{' . $_k . '}', $_v, $language);
            }
        }
        return $language;
    }
}

/**
 * 模板调用
 *
 * @param
 *            $module
 * @param
 *            $template
 * @param
 *            $istag
 * @return unknown_type
 */
function template($module = 'content', $template = 'index', $style = 'default')
{
    $template_cache = pc_base::load_sys_class('template_cache');
    
    $compiledtplfile = PHPCMS_PATH . 'caches' . DIRECTORY_SEPARATOR . 'caches_template' . DIRECTORY_SEPARATOR . $style . DIRECTORY_SEPARATOR . $module . DIRECTORY_SEPARATOR . $template . '.php';
    
    if (file_exists(PC_PATH . 'templates' . DIRECTORY_SEPARATOR . $style . DIRECTORY_SEPARATOR . $module . DIRECTORY_SEPARATOR . $template . '.html')) {
        if (! file_exists($compiledtplfile) || (@filemtime(PC_PATH . 'templates' . DIRECTORY_SEPARATOR . $style . DIRECTORY_SEPARATOR . $module . DIRECTORY_SEPARATOR . $template . '.html') > @filemtime($compiledtplfile))) {
            $template_cache->template_compile($module, $template, $style);
        }
    } else {
        $compiledtplfile = PHPCMS_PATH . 'caches' . DIRECTORY_SEPARATOR . 'caches_template' . DIRECTORY_SEPARATOR . $module . DIRECTORY_SEPARATOR . $template . '.default.php';
        if (file_exists(PC_PATH . 'templates' . DIRECTORY_SEPARATOR . 'default' . DIRECTORY_SEPARATOR . $module . DIRECTORY_SEPARATOR . $template . '.html') && filemtime(PC_PATH . 'templates' . DIRECTORY_SEPARATOR . 'default' . DIRECTORY_SEPARATOR . $module . DIRECTORY_SEPARATOR . $template . '.html') > filemtime($compiledtplfile)) {
            $template_cache->template_compile($module, $template, 'default');
        } else {
            showmessage('Template does not exist.' . DIRECTORY_SEPARATOR . $style . DIRECTORY_SEPARATOR . $module . DIRECTORY_SEPARATOR . $template . '.html');
        }
    }
    return $compiledtplfile;
}

/**
 * 输出自定义错误
 *
 * @param $errno 错误号
 * @param $errstr 错误描述
 * @param $errfile 报错文件地址
 * @param $errline 错误行号
 * @return string 错误提示
 */
function my_error_handler($errno, $errstr, $errfile, $errline)
{
    if ($errno == 8)
        return '';
    $errfile = str_replace(PHPCMS_PATH, '', $errfile);
    if (pc_base::load_config('system', 'errorlog')) {
        error_log(date('m-d H:i:s', SYS_TIME) . ' | ' . $errno . ' | ' . str_pad($errstr, 30) . ' | ' . $errfile . ' | ' . $errline . "\r\n", 3, CACHE_PATH . 'error_log.php');
    } else {
        $str = '<div style="font-size:12px;text-align:left; border-bottom:1px solid #9cc9e0; border-right:1px solid #9cc9e0;padding:1px 4px;color:#000000;font-family:Arial, Helvetica,sans-serif;"><span>errorno:' . $errno . ',str:' . $errstr . ',file:<font color="blue">' . $errfile . '</font>,line' . $errline . '<br /><a href="http://faq.phpcms.cn/?type=file&errno=' . $errno . '&errstr=' . urlencode($errstr) . '&errfile=' . urlencode($errfile) . '&errline=' . $errline . '" target="_blank" style="color:red">Need Help?</a></span></div>';
        echo $str;
    }
}

/**
 * 提示信息页面跳转，跳转地址如果传入数组，页面会提示多个地址供用户选择，默认跳转地址为数组的第一个值，时间为5秒。
 * showmessage('登录成功', array('默认跳转地址'=>'http://www.phpcms.cn'));
 * 
 * @param string $msg
 *            提示信息
 * @param mixed(string/array) $url_forward
 *            跳转地址
 * @param int $ms
 *            跳转等待时间
 */
function showmessage($msg, $url_forward = 'goback', $ms = 1250, $dialog = '')
{
    if (defined('IN_ADMIN')) {
        include (admin::admin_tpl('showmessage', 'admin'));
    } else {
        include (template('content', 'message'));
    }
    exit();
}

/**
 * 查询字符是否存在于某字符串
 *
 * @param $haystack 字符串
 * @param $needle 要查找的字符
 * @return bool
 */
function str_exists($haystack, $needle)
{
    return ! (strpos($haystack, $needle) === FALSE);
}

/**
 * 取得文件扩展
 *
 * @param $filename 文件名
 * @return 扩展名
 */
function fileext($filename)
{
    return strtolower(trim(substr(strrchr($filename, '.'), 1, 10)));
}

/**
 * 加载模板标签缓存
 * 
 * @param string $name
 *            缓存名
 * @param integer $times
 *            缓存时间
 */
function tpl_cache($name, $times = 0)
{
    $filepath = 'tpl_data';
    $info = getcacheinfo($name, $filepath);
    if (SYS_TIME - $info['filemtime'] >= $times) {
        return false;
    } else {
        return getcache($name, $filepath);
    }
}

/**
 * 写入缓存，默认为文件缓存，不加载缓存配置。
 * 
 * @param $name 缓存名称
 * @param $data 缓存数据
 * @param $filepath 数据路径（模块名称）
 *            caches/cache_$filepath/
 * @param $type 缓存类型[file,memcache,apc]
 * @param $config 配置名称
 * @param $timeout 过期时间
 */
function setcache($name, $data, $filepath = '', $type = 'file', $config = '', $timeout = '')
{
    if (! preg_match("/^[a-zA-Z0-9_-]+$/", $name))
        return false;
    if ($filepath != "" && ! preg_match("/^[a-zA-Z0-9_-]+$/", $filepath))
        return false;
    pc_base::load_sys_class('cache_factory', '', 0);
    if ($config) {
        $cacheconfig = pc_base::load_config('cache');
        $cache = cache_factory::get_instance($cacheconfig)->get_cache($config);
    } else {
        $cache = cache_factory::get_instance()->get_cache($type);
    }
    
    return $cache->set($name, $data, $timeout, '', $filepath);
}

/**
 * 读取缓存，默认为文件缓存，不加载缓存配置。
 * 
 * @param string $name
 *            缓存名称
 * @param $filepath 数据路径（模块名称）
 *            caches/cache_$filepath/
 * @param string $config
 *            配置名称
 */
function getcache($name, $filepath = '', $type = 'file', $config = '')
{
    if (! preg_match("/^[a-zA-Z0-9_-]+$/", $name))
        return false;
    if ($filepath != "" && ! preg_match("/^[a-zA-Z0-9_-]+$/", $filepath))
        return false;
    pc_base::load_sys_class('cache_factory', '', 0);
    if ($config) {
        $cacheconfig = pc_base::load_config('cache');
        $cache = cache_factory::get_instance($cacheconfig)->get_cache($config);
    } else {
        $cache = cache_factory::get_instance()->get_cache($type);
    }
    return $cache->get($name, '', '', $filepath);
}

/**
 * 删除缓存，默认为文件缓存，不加载缓存配置。
 * 
 * @param $name 缓存名称
 * @param $filepath 数据路径（模块名称）
 *            caches/cache_$filepath/
 * @param $type 缓存类型[file,memcache,apc]
 * @param $config 配置名称
 */
function delcache($name, $filepath = '', $type = 'file', $config = '')
{
    if (! preg_match("/^[a-zA-Z0-9_-]+$/", $name))
        return false;
    if ($filepath != "" && ! preg_match("/^[a-zA-Z0-9_-]+$/", $filepath))
        return false;
    pc_base::load_sys_class('cache_factory', '', 0);
    if ($config) {
        $cacheconfig = pc_base::load_config('cache');
        $cache = cache_factory::get_instance($cacheconfig)->get_cache($config);
    } else {
        $cache = cache_factory::get_instance()->get_cache($type);
    }
    return $cache->delete($name, '', '', $filepath);
}

/**
 * 读取缓存，默认为文件缓存，不加载缓存配置。
 * 
 * @param string $name
 *            缓存名称
 * @param $filepath 数据路径（模块名称）
 *            caches/cache_$filepath/
 * @param string $config
 *            配置名称
 */
function getcacheinfo($name, $filepath = '', $type = 'file', $config = '')
{
    if (! preg_match("/^[a-zA-Z0-9_-]+$/", $name))
        return false;
    if ($filepath != "" && ! preg_match("/^[a-zA-Z0-9_-]+$/", $filepath))
        return false;
    pc_base::load_sys_class('cache_factory');
    if ($config) {
        $cacheconfig = pc_base::load_config('cache');
        $cache = cache_factory::get_instance($cacheconfig)->get_cache($config);
    } else {
        $cache = cache_factory::get_instance()->get_cache($type);
    }
    return $cache->cacheinfo($name, '', '', $filepath);
}

function url($url, $isabs = 0)
{
    if (strpos($url, '://') !== FALSE || $url[0] == '?')
        return $url;
    $siteurl = get_url();
    if ($isabs || defined('SHOWJS')) {
        $url = strpos($url, WEB_PATH) === 0 ? $siteurl . substr($url, strlen(WEB_PATH)) : $siteurl . $url;
    } else {
        $url = strpos($url, WEB_PATH) === 0 ? $url : WEB_PATH . $url;
    }
    return $url;
}

/**
 * 生成sql语句，如果传入$in_cloumn 生成格式为 IN('a', 'b', 'c')
 * 
 * @param $data 条件数组或者字符串
 * @param $front 连接符
 * @param $in_column 字段名称
 * @return string
 */
function to_sqls($data, $front = ' AND ', $in_column = false)
{
    if ($in_column && is_array($data)) {
        $ids = '\'' . implode('\',\'', $data) . '\'';
        $sql = "$in_column IN ($ids)";
        return $sql;
    } else {
        if ($front == '') {
            $front = ' AND ';
        }
        if (is_array($data) && count($data) > 0) {
            $sql = '';
            foreach ($data as $key => $val) {
                $sql .= $sql ? " $front `$key` = '$val' " : " `$key` = '$val' ";
            }
            return $sql;
        } else {
            return $data;
        }
    }
}

/**
 * 分页函数
 *
 * @param $num 信息总数
 * @param $curr_page 当前分页
 * @param $perpage 每页显示数
 * @param $urlrule URL规则
 * @param $array 需要传递的数组，用于增加额外的方法
 * @return 分页
 */
function pages($num, $curr_page, $perpage = 20, $urlrule = '', $array = array())
{
    if ($urlrule == '')
        $urlrule = url_par('page={$page}');
    $multipage = '';
    if ($num > $perpage) {
        $page = 11;
        $offset = 4;
        $pages = ceil($num / $perpage);
        $from = $curr_page - $offset;
        $to = $curr_page + $offset;
        $more = 0;
        if ($page >= $pages) {
            $from = 2;
            $to = $pages - 1;
        } else {
            if ($from <= 1) {
                $to = $page - 1;
                $from = 2;
            } elseif ($to >= $pages) {
                $from = $pages - ($page - 2);
                $to = $pages - 1;
            }
            $more = 1;
        }
        $multipage .= L('total') . '<b>' . $num . '</b>&nbsp;&nbsp;';
        if ($curr_page > 0) {
            $multipage .= ' <a href="' . pageurl($urlrule, $curr_page - 1, $array) . '" class="a1">' . L('previous') . '</a>';
            if ($curr_page == 1) {
                $multipage .= ' <span>1</span>';
            } elseif ($curr_page > 6 && $more) {
                $multipage .= ' <a href="' . pageurl($urlrule, 1, $array) . '">1</a>..';
            } else {
                $multipage .= ' <a href="' . pageurl($urlrule, 1, $array) . '">1</a>';
            }
        }
        for ($i = $from; $i <= $to; $i ++) {
            if ($i != $curr_page) {
                $multipage .= ' <a href="' . pageurl($urlrule, $i, $array) . '">' . $i . '</a>';
            } else {
                $multipage .= ' <span>' . $i . '</span>';
            }
        }
        if ($curr_page < $pages) {
            if ($curr_page < $pages - 5 && $more) {
                $multipage .= ' ..<a href="' . pageurl($urlrule, $pages, $array) . '">' . $pages . '</a> <a href="' . pageurl($urlrule, $curr_page + 1, $array) . '" class="a1">' . L('next') . '</a>';
            } else {
                $multipage .= ' <a href="' . pageurl($urlrule, $pages, $array) . '">' . $pages . '</a> <a href="' . pageurl($urlrule, $curr_page + 1, $array) . '" class="a1">' . L('next') . '</a>';
            }
        } elseif ($curr_page == $pages) {
            $multipage .= ' <span>' . $pages . '</span> <a href="' . pageurl($urlrule, $curr_page, $array) . '" class="a1">' . L('next') . '</a>';
        } else {
            $multipage .= ' <a href="' . pageurl($urlrule, $pages, $array) . '">' . $pages . '</a> <a href="' . pageurl($urlrule, $curr_page + 1, $array) . '" class="a1">' . L('next') . '</a>';
        }
    }
    return $multipage;
}

/**
 * 返回分页路径
 *
 * @param $urlrule 分页规则
 * @param $page 当前页
 * @param $array 需要传递的数组，用于增加额外的方法
 * @return 完整的URL路径
 */
function pageurl($urlrule, $page, $array = array())
{
    if (strpos($urlrule, '#')) {
        $urlrules = explode('#', $urlrule);
        $urlrule = $page < 2 ? $urlrules[0] : $urlrules[1];
    }
    $findme = array(
        '{$page}'
    );
    $replaceme = array(
        $page
    );
    if (is_array($array))
        foreach ($array as $k => $v) {
            $findme[] = '{$' . $k . '}';
            $replaceme[] = $v;
        }
    $url = str_replace($findme, $replaceme, $urlrule);
    return $url;
}

/**
 * URL路径解析，pages 函数的辅助函数
 *
 * @param $par 传入需要解析的变量
 *            默认为，page={$page}
 * @param $url URL地址
 * @return URL
 */
function url_par($par, $url = '')
{
    if ($url == '')
        $url = get_url();
    $pos = strpos($url, '?');
    if ($pos === false) {
        $url .= '?' . $par;
    } else {
        $querystring = substr(strstr($url, '?'), 1);
        parse_str($querystring, $pars);
        $query_array = array();
        foreach ($pars as $k => $v) {
            $query_array[$k] = $v;
        }
        $querystring = http_build_query($query_array) . '&' . $par;
        $url = substr($url, 0, $pos) . '?' . $querystring;
    }
    return $url;
}

/**
 * 判断email格式是否正确
 * 
 * @param
 *            $email
 */
function is_email($email)
{
    return strlen($email) > 6 && preg_match("/^[\w\-\.]+@[\w\-\.]+(\.\w+)+$/", $email);
}

/**
 * iconv 编辑转换
 */
if (! function_exists('iconv')) {

    function iconv($in_charset, $out_charset, $str)
    {
        $in_charset = strtoupper($in_charset);
        $out_charset = strtoupper($out_charset);
        if (function_exists('mb_convert_encoding')) {
            return mb_convert_encoding($str, $out_charset, $in_charset);
        } else {
            
            pc_base::load_sys_func('iconv');
            $in_charset = strtoupper($in_charset);
            $out_charset = strtoupper($out_charset);
            if ($in_charset == 'UTF-8' && ($out_charset == 'GBK' || $out_charset == 'GB2312')) {
                return utf8_to_gbk($str);
            }
            if (($in_charset == 'GBK' || $in_charset == 'GB2312') && $out_charset == 'UTF-8') {
                return gbk_to_utf8($str);
            }
            return $str;
        }
    }
}

/**
 * 代码广告展示函数
 * 
 * @param intval $siteid
 *            所属站点
 * @param intval $id
 *            广告ID
 * @return 返回广告代码
 */
function show_ad($siteid, $id)
{
    $siteid = intval($siteid);
    $id = intval($id);
    if (! $id || ! $siteid)
        return false;
    $p = pc_base::load_model('poster_model');
    $r = $p->get_one(array(
        'spaceid' => $id,
        'siteid' => $siteid
    ), 'setting', '`id` ASC');
    if ($r['setting']) {
        $c = string2array($r['setting']);
    } else {
        $r['code'] = '';
    }
    return $c['code'];
}

/**
 * 获取当前的站点ID
 */
function get_siteid()
{
    static $siteid;
    if (! empty($siteid))
        return $siteid;
    if (defined('IN_ADMIN')) {
        if ($d = param::get_cookie('siteid')) {
            $siteid = $d;
        } else {
            return '';
        }
    } else {
        $data = getcache('sitelist', 'commons');
        $site_url = SITE_PROTOCOL . SITE_URL;
        foreach ($data as $v) {
            if ($v['url'] . '/' == $site_url)
                $siteid = $v['siteid'];
        }
    }
    return $siteid;
}

/**
 * 调用关联菜单
 * 
 * @param
 *            $linkageid
 * @param
 *            $id
 * @param
 *            $defaultvalue
 */
function menu_linkage($linkageid = 0, $id = 'linkid', $defaultvalue = 0)
{
    $linkageid = intval($linkageid);
    $datas = array();
    $datas = getcache($linkageid, 'linkage');
    $infos = $datas['data'];
    $title = $defaultvalue ? $infos[$defaultvalue]['name'] : $datas['title'];
    $colObj = random(3) . date('is');
    $string = '';
    if (! defined('LINKAGE_INIT')) {
        define('LINKAGE_INIT', 1);
        $string .= '<script type="text/javascript" src="' . JS_PATH . 'linkage/js/mln.colselect.js"></script>';
        if (defined('IN_ADMIN')) {
            $string .= '<link href="' . JS_PATH . 'linkage/style/admin.css" rel="stylesheet" type="text/css">';
        } else {
            $string .= '<link href="' . JS_PATH . 'linkage/style/css.css" rel="stylesheet" type="text/css">';
        }
    }
    $string .= '<input type="hidden" name="info[' . $id . ']" value="1"><div id="' . $id . '"></div>';
    $string .= '<script type="text/javascript">';
    $string .= 'var colObj' . $colObj . ' = {"Items":[';
    
    foreach ($infos as $k => $v) {
        $s .= '{"name":"' . $v['name'] . '","topid":"' . $v['parentid'] . '","colid":"' . $k . '","value":"' . $k . '","fun":function(){}},';
    }
    
    $string .= substr($s, 0, - 1);
    $string .= ']};';
    $string .= '$("#' . $id . '").mlnColsel(colObj' . $colObj . ',{';
    $string .= 'title:"' . $title . '",';
    $string .= 'value:"' . $defaultvalue . '",';
    $string .= 'width:100';
    $string .= '});';
    $string .= '</script>';
    return $string;
}

/**
 * 判断字符串是否为utf8编码，英文和半角字符返回ture
 * 
 * @param
 *            $string
 * @return bool
 */
function is_utf8($string)
{
    return preg_match('%^(?:
					[\x09\x0A\x0D\x20-\x7E] # ASCII
					| [\xC2-\xDF][\x80-\xBF] # non-overlong 2-byte
					| \xE0[\xA0-\xBF][\x80-\xBF] # excluding overlongs
					| [\xE1-\xEC\xEE\xEF][\x80-\xBF]{2} # straight 3-byte
					| \xED[\x80-\x9F][\x80-\xBF] # excluding surrogates
					| \xF0[\x90-\xBF][\x80-\xBF]{2} # planes 1-3
					| [\xF1-\xF3][\x80-\xBF]{3} # planes 4-15
					| \xF4[\x80-\x8F][\x80-\xBF]{2} # plane 16
					)*$%xs', $string);
}

/**
 * 获取UCenter数据库配置
 */
function get_uc_database()
{
    $config = pc_base::load_config('system');
    $config['uc_dbtablepre'] = str_replace('`' . $config['uc_dbname'] . '`.', '', $config['uc_dbtablepre']);
    return array(
        'hostname' => $config['uc_dbhost'],
        'database' => $config['uc_dbname'],
        'username' => $config['uc_dbuser'],
        'password' => $config['uc_dbpw'],
        'tablepre' => $config['uc_dbtablepre'],
        'charset' => $config['uc_dbcharset'],
        'type' => 'mysql',
        'debug' => true,
        'pconnect' => 0,
        'autoconnect' => 0
    );
}
?>